1 REM +++ ZAUBERSCHLOSS - 2. TEIL +++
2 REM +++ EIN ADVENTURE VON       +++
3 REM +++ JOSEF BUSIN             +++
4 REM +++ SUDETENSTR. 37          +++
5 REM +++ 7321 ESCHENBACH         +++
6 REM +++ TEL.: 07161/42817       +++
8 REM +++ HAUPTPROGRAMM           +++
15 IFA=0THENA=1:LOAD"ZAUBER-SPRITES 2",8,1
20 DATA120,169,0,141,18,208,173,17,208,41,127,141,17,208,169,129,141,26
25 DATA208,169,91,160,3,141,20,3,140,21,3,88,96,173,25,208,141,25,208,41
30 DATA1,208,3,76,144,3,173,18,208,201,200,176,21,169,200,141,18,208,169
35 DATA4,160,0,141,32,208,140,33,208,104,168,104,170,104,64,169,0,141,18
40 DATA208,169,4,160,4,76,120,3,165,197,201,64,208,14,169,0,141,4,212,141
45 DATA5,212,141,6,212,76,49,234,141,1,212,73,255,141,0,212,169,15,141,24
50 DATA212,169,25,141,5,212,169,68,141,6,212,169,17,141,4,212,76,49,234
55 DATA120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
60 DATA133,89,169,224,133,91,32,191,163,169,55,133,1,88,96
65 DATA169,240,160,3,141,2,3,140,3,3,96,32,94,166,76,131,164
66 DATA162,0,160,0,138,133,251,169,216,133,252,138,145,251,200,208,251,232,230
67 DATA252,224,3,208,244,162,0,157,0,219,232,224,200,208,248,96
70 SYS58451:FORX=828TO1013:READA:A5=A5+A:POKEX,A:NEXT
72 FORX=704TO738:READA:A5=A5+A:POKEX,A:NEXT
73 IFA5<>26829THENPRINT"[147]FEHLER IN DATAS!":STOP
75 SYS963:POKE981,160:SYS963:POKE56576,PEEK(56576)AND252:POKE53272,8:POKE648,192
80 SYS828:SYS997
200 V=53248:POKEV+21,0:POKEV+29,0:POKEV+23,0:PRINTCHR$(142)CHR$(8)
215 PRINT"[147][149]":GOSUB25000
216 PRINT"[144][146]ZAUBERSCHLOSS - 2. TEIL"
217 PRINT"EIN ADVENTURE VON JOSEF BUSIN"
227 FORX=49152TO49352STEP11:POKEX,46:NEXTX:FORX=55296TO55496STEP11:POKEX,1:NEXTX
232 POKEV+21,3:POKE50168,192:POKE50169,192:POKEV,180:POKEV+1,177:POKEV+39,1
233 POKEV+27,3:POKEV+40,1:POKEV+29,3:FORX=1TO1000:NEXTX
234 FORX=177TO20STEP-1:POKEV,180+Z:Z=Z+.3:POKEV+1,X
235 POKEV+2,180-Z1:Z1=Z1+1.1:POKEV+3,X+1:FORY=0TO45:NEXTY:NEXTX
240 PRINT"[146][144]DIE GEISTER HABEN DAS SCHLOSS VERLASSEN.";
245 PRINT"IHRE STUNDE IST GEKOMMEN. TOETEN SIE DEN";
247 PRINT"ZAUBERER UND RETTEN SIE DAMIT ENDGUELTIG";
248 PRINT"DAS VOLK VOR DEM TYRANNEN.        "
250 GETA$:IFA$=""THEN250
255 PRINT"[147][158]"CHR$(14):PRINT"KENNEN SIE DIE SPIELREGELN (J/N) ?"
260 GETA$:IFA$=""THEN260
265 IFA$="J"THEN307
270 PRINT"[147][196]IESES [193]DVENTURE IST DIE [198]ORTSETZUNG"
272 PRINT"VON [218][193][213][194][197][210][211][195][200][204][207][211][211]."
274 PRINT"[207]BWOHL DER [218]AUBERER (HOFFENTLICH!) VON"
276 PRINT"[196]IR IN EINE [205]AUS VERWANDELT WURDE, IST"
278 PRINT"ER JETZT WIEDER ZURUECKGEKEHRT."
280 PRINT"[193]BERMALS WIRD ER VERSUCHEN, DAS [214]OLK ZU"
282 PRINT"UNTERJOCHEN. [193]LS [203]OENIG HAST [196]U DIE"
284 PRINT"[208]FLICHT, [196]EIN [214]OLK UND [196]EINEN [212]HRON VOR"
292 PRINT"DEM BOESEN [218]AUBERER ZU RETTEN."
296 PRINT"[198]OLGENDE [194]EFEHLE WERDEN AKZEPTIERT:"
297 GETA$:IFA$=""THEN297
298 PRINT"[147]"
299 PRINT"NIMM...VERLIERE...OEFFNE...ZERSCHLAGE.."
300 PRINT".BEKAEMPFE...TRINKE...ESSE...LESE..."
301 PRINT"BENUTZE...BESTECHE...SAGE...KUESSE..."
302 PRINT"FANGE...LIST"
305 GETA$:IFA$=""THEN305
307 PRINT"[147]"CHR$(142)
310 DATA,,,63,255,255,255,255,,,28,255,255,255,255,255,,,,128,193,255,255,255
320 DATA,,,96,243,255,255,255
330 FORX=0TO7:READA:POKE57344+X,A:NEXTX:FORX=0TO23:READA:POKE58032+X,A:NEXTX
340 DATA,,,1,3,3,3,3,60,126,255,255,255,255,24,24,,,,128,192,192,192,192
350 DATA3,3,3,3,1,,,,24,255,231,231,255,255,129,129,192,192,192,192,128,,,
360 DATA,,32,112,255,255,112,32,129,255,126,,255,255,,,,,4,14,255,255,14,4
400 FORX=0TO15:READA:POKE57584+X,A:NEXT:FORX=0TO55:READA:POKE57624+X,A:NEXT
900 GOTO1100
1010 PRINT"[147][151]":FORX=1TO10:PRINT"@[214][215][216]";:NEXTX
1020 FORX=1TO160:PRINT" ";:NEXTX:PRINT"[158]";
1030 FORX=1TO320:PRINT" ";:NEXTX
1035 POKEV+27,0:POKE50168,193:POKE50169,193
1040 POKEV+21,3:POKEV+39,0:POKEV,250:POKEV+1,150:POKEV+23,1:POKEV+29,1
1050 POKEV+40,0:POKEV+2,50:POKEV+3,120
1055 FORX=49152TO49370STEP11:POKEX,46:NEXTX
1060 FORX=55296TO55514STEP11:POKEX,1:NEXTX
1080 RETURN
1100 GOSUB1010
1105 IFNS=0ANDWO=0THEN1107
1106 GOTO1140
1107 IFFL=1THEN1140
1110 POKE50170,206:POKEV+21,7:POKEV+41,0:POKEV+4,180:POKEV+5,150
1120 PRINT"[146][144]DU BEFINDEST DICH IN EINER OEDEN GEGEND"
1130 PRINT"DU SIEHST EINE FLASCHE[145]":GOTO1150
1140 PRINT"[146][144]DU BEFINDEST DICH IN EINER OEDEN GEGEND"
1150 PRINT"MOEGLICHE RICHTUNGEN: N-S-W-O"
1160 INPUT"KOMMANDO";K$
1165 IFK$="N"THENNS=NS+1:GOTO1200
1170 IFK$="S"THENNS=NS-1:GOTO1200
1175 IFK$="W"THENWO=WO-1:GOTO1200
1180 IFK$="O"THENWO=WO+1:GOTO1200
1185 IFK$="NIMM FLASCHE"ANDNS=0ANDWO=0THENFL=1:POKEV+21,3:GOTO1200
1186 IFK$="OEFFNE FLASCHE"ANDFL=1THEN1195
1187 IFK$="VERLIERE FLASCHE"ANDFL=1THEN1197
1190 IFK$="ZERSCHLAGE FLASCHE"ANDFL=1THEN20000
1195 PRINT"[147]UNMOEGLICH!":FORX=1TO2000:NEXTX
1196 GOTO1100
1197 POKEV+21,0:PRINT"[147]DIE FLASCHE HAT SICH IN RAUCH AUFGE-"
1198 PRINT"LOEST.":PRINT"SOMIT IST DAS ABENTEUER ZUENDE, BEVOR ES";
1199 PRINT"ERST RICHTIG ANGEFANGEN HAT.":END
1200 GOTO1100
2100 POKE53269,0:POKE876,210:SYS828:POKE880,210:SYS828
2105 DIMF1(3,4,4),F2(3,4,4),B1(3,4,4),B2(3,4,4),G$(39),B$(14),A(11)
2110 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READF1(X1,X2,X3):NEXT:NEXT:NEXT
2112 DATA8,14,12,30,4,128,13,14,7,2,8,14,15,5,4097,1034,133,11,14,22,1,8,133,128,1
2115 DATA10,14,14,38,2,,11,13,15,5,9,15,30,15,4,10,13,13,15,38,137,8204,4,,5
2117 DATA130,8,12,6,2,25,12,14,12,16391,8,14,47,12,7,2,131,11,12,7,,1,2057,4,17
2120 DATA8,12,140,14,6,34,520,6,66,1,139,4,387,11,6,9,12,15,5,3,8,12,141,4,33
2125 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READF2(X1,X2,X3):NEXT:NEXT:NEXT
2130 DATA,32,,,,2,,,,,,,2048,,,,,,,,,1,,2,,,,,,,16,,,,4096,,,,,16,32,,,,,,,8,16
2135 DATA,,,32,,,,,,512,,,,,,64,,,,,,1024,4,,,,,256,,,,,,128,,64,,,,,,,,,,,16,,,,
2140 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READB1(X1,X2,X3):NEXT:NEXT:NEXT
2145 DATA1024,,,,,,,,,1,4,,,,,,,8,,,,4,,,4096,,,,,512,,,,,,,,,,,,,,,,,,,,,256
2150 DATA,,128,2,,,,,,512,,,,,8192,,,,,,4,,16384,,16,,,,2048,,,,,,,64,,,4
2155 DATA,,,,,,,,4,
2160 FORX1=0TO3:FORX2=0TO4:FORX3=0TO4:READB2(X1,X2,X3):NEXT:NEXT:NEXT
2165 DATA,,,,1,,,256,,,,,,,,,,,,,4,,,,,,,,,,,,1,,,32,,,1024,,,512,,,,,,,,,,128
2170 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,,,,,,,,,8,,64,,,,,,
2180 FORX=1TO14:READB$(X):NEXT
2185 DATABEKAEMPFE,BENUTZE,BESTECHE,ESSE,FANGE,KUESSE,LESE,LIST,NIMM,OEFFNE
2190 DATASAGE,TRINKE,VERLIERE,ZERSCHLAGE
2195 FORX=1TO39:READG$(X):NEXT
2196 FORX=1TO38:FORY=X+1TO39:IFG$(X)<G$(Y)THEN2198
2197 V$=G$(X):G$(X)=G$(Y):G$(Y)=V$
2198 NEXTY:NEXTX
2200 DATAHAMMELKEULE,SCHLANGEN,HOELLENSTEIN,WACHE,WACHEN,KOBOLD,ZAUBERSTEIN
2205 DATAGOLD,BOGENSCHUETZE,GHOUL,VAMPIR,HONIG,ZAUBERTRANK,WEIN,SPEER,SCHWERT
2210 DATASCHILD,PEITSCHE,UNGEHEUER,TONTAFEL,ZAUBERRING,KROETE,FLOETE,TUER,BAER
2215 DATASILBERDOLCH,WERWOLF,SPIEGEL,FLASCHE,SHADOW,NETZ,ZAUBERER,ZEPTER
2220 DATASTEINERNE,SAEURE,SCHEMEL,GEGENGIFT,FLASCHENGEIST,HOLZPFLOCK
2225 X1=1:X2=0:X3=1
2250 GOSUB21000:IFG>0THENG=G+1:IFG=5THEN23000
2252 IFZT>0THENZT=ZT+1:IFZT=20THENGOSUB24000
2260 ZA=ZA+1:GOSUB11000:GOSUB10000:GOSUB9900:SYS704
2263 IFF1(X1,X2,X3)>127THENJ1=1
2265 IFJ1=1THENGOSUB30000
2270 PRINT"";:INPUT"KOMMANDO";K$
2290 IFK$="N"AND(FGAND1)=1THENX2=X2-1:GOTO2400
2300 IFK$="S"AND(FGAND2)=2THENX2=X2+1:GOTO2400
2310 IFK$="W"AND(FGAND4)=4THENX3=X3-1:GOTO2400
2320 IFK$="O"AND(FGAND8)=8THENX3=X3+1:GOTO2400
2330 IFK$="H"AND(FGAND16)=16THENX1=X1+1:GOTO2400
2340 IFK$="R"AND(FGAND32)=32THENX1=X1-1:GOTO2400
2345 GOSUB3000:IFFE=0THEN2400
2350 PRINT"NICHT MOEGLICH!":FORX=1TO2000:NEXTX:GOTO2250
2400 GOSUB12000:GOSUB26000:GOTO2250
3000 FE=0:IFK$="LIST"THEN7000
3005 X0=0:FORX=1TOLEN(K$):IFMID$(K$,X,1)=" "THENX0=X
3010 NEXTX:IFX0=0THENFE=1:RETURN
3015 K1$=LEFT$(K$,X0-1):K2$=MID$(K$,X0+1,LEN(K$)-X0)
3020 X0=0:FORX=1TO39:IFK2$=G$(X)ORK2$="SESAMOOPERA"THENX0=X
3030 NEXTX:IFX0=0THENFE=1:RETURN
3040 X0=0:FORX=1TO14:IFK1$=B$(X)THENX0=X
3050 NEXTX:IFX0=0THENFE=1:RETURN
3060 IFX0>8THEN3090
3070 ONX0GOSUB3500,4000,4500,5000,5500,6000,6500
3080 RETURN
3090 X0=X0-8:ONX0GOSUB7500,8000,8500,9000,9500,13000
3100 RETURN
3500 FE=0:S=0:GOSUB26000
3510 IFK2$=G$(1)AND(F1(X1,X2,X3)AND16384)=16384THEN3530
3511 IFK2$=G$(2)AND(F2(X1,X2,X3)AND2048)=2048THEN3545
3512 IFK2$=G$(4)AND(B1(X1,X2,X3)AND32)=32THEN3555
3513 IFK2$=G$(13)AND(B2(X1,X2,X3)AND256)=256THEN3570
3514 IFK2$=G$(20)AND(F2(X1,X2,X3)AND32)=32THEN3610
3515 IFK2$=G$(22)AND(F2(X1,X2,X3)AND256)=256THEN3630
3516 IFK2$=G$(29)AND(F1(X1,X2,X3)AND8192)=8192THEN3670
3517 IFK2$=G$(30)AND(F1(X1,X2,X3)AND1024)=1024THEN3705
3518 IFK2$=G$(31)ORK2$=G$(32)AND(F1(X1,X2,X3)AND128)=128THEN3745
3519 IFK2$=G$(34)AND(F1(X1,X2,X3)AND2048)=2048THEN3860
3521 IFK2$=G$(7)AND(F1(X1,X2,X3)AND4096)=4096THEN3925
3522 IFK2$=G$(26)AND(F2(X1,X2,X3)AND128)=128THEN3960
3525 FE=1:RETURN
3530 GOSUB3990:POKEV+21,0:PRINT"[147]DER BAER HAT SICH AUF KEINEN LANGEN"
3540 PRINT"KAMPF EINGELASSEN."
3542 PRINT"MIT EINEM EINZIGEN PRANKENHIEB HAT ER"
3543 PRINT"DICH INS JENSEITS BEFOERDERT.":GOTO55000
3545 GOSUB3990:POKEV+21,0:PRINT"[147]":X0=0:FORX=1TO4:IFTR$(X)=G$(19)THENX0=X
3546 NEXTX:IFX0=0THEN3550
3547 PRINT"DER PFEIL DES BOGENSCHUETZEN HAT NUR DEN SCHILD GETROFFEN."
3548 FORX=1TO1500:NEXTX:RETURN
3550 PRINT"LEIDER WAR DER UNHEIMLICHE BOGENSCHUETZE";:PRINT"SCHNELLER."
3552 PRINT"SEIN MAGISCHER PFEIL HAT DICH GETROFFEN.":GOTO55000
3555 GOSUB3990:POKEV+21,0:PRINT"[147]"
3556 PRINT"DA DU DEN ";G$(4);" GEREIZT HAST,"
3560 PRINT"IST ES NUR SELBSTVERSTAENDLICH, DASS ER"
3565 PRINT"DICH WIE EIN LAESTIGES INSEKT IN DER"
3566 PRINT"LUFT ZERRISSEN HAT.":GOTO55000
3570 GOSUB3990:POKEV+21,0:PRINT"[147]DER KOBOLD HAT ES VORGEZOGEN ZU VER-":PRINT"SCHWINDEN."
3575 FORX=1TO4:IFTR$(X)=G$(8)THEN3590
3580 NEXT
3581 IFX1=0THENB2(1,2,1)=B2(1,2,1)+256
3582 IFX1=1THENB2(2,3,3)=B2(2,3,3)+256
3583 IFX1=2THENB2(0,1,2)=B2(0,1,2)+256
3586 B2(X1,X2,X3)=B2(X1,X2,X3)-256:FORX=1TO2000:NEXTX:RETURN
3590 PRINT"LEIDER HAT ER DEIN GOLD MITGENOMMEN."
3591 IFX1=0THENB2(1,2,1)=B2(1,2,1)+256
3592 IFX1=1THENB2(2,3,3)=B2(2,3,3)+256
3593 IFX1=2THENB2(0,1,2)=B2(0,1,2)+256
3595 FORX=1TO4:IFTR$(X)=G$(8)THENTR$(X)=""
3600 NEXTX:X0=X:GOSUB23200:GOTO3586
3610 GOSUB3990:POKEV+21,0:PRINT"[147]"
3611 PRINT"DIE SCHLANGEN HABEN DICH GEBISSEN."
3615 PRINT"DU BIST VERGIFTET.":PRINT"WENN DU NICHT BALD ETWAS DAGEGEN"
3620 PRINT"UNTERNIMMST, IST ES AUS.":G=1
3625 FORX=1TO2500:NEXTX:RETURN
3630 GOSUB3990:POKEV+21,0:IFK$=G$(37)THEN3655
3635 PRINT"[147]DER GEHEIMNISVOLLE SHADOW HAT DIR"
3640 PRINT"SAEMTLICHE LEBENSENERGIE GENOMMEN."
3645 PRINT"UM DEINE LEBLOSE HUELLE WERDEN SICH DIE"
3650 PRINT"RATTEN KUEMMERN.":GOTO55000
3655 X0=0:FORX=1TO4:IFTR$(X)=G$(37)THENX0=X
3656 NEXTX:IFX0=0THEN3635
3657 F2(X1,X2,X3)=F2(X1,X2,X3)-256:PRINT"[147]DU HAST DEN GEHEIMNISVOLLEN SHADOW"
3660 PRINT"VERNICHTET."
3661 PRINT"LEIDER IST DABEI DER ";G$(37);" AUCH"
3662 PRINT"VERNICHTET WORDEN.":GOSUB23200:FORX=1TO3000:NEXT:RETURN
3670 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(39)THEN3685
3675 PRINT"DAS SCHRECKLICHE UNGEHEUER HAT DICH MIT"
3680 PRINT"HAUT UND HAAREN GEFRESSEN.":GOTO55000
3685 X0=0:FORX=1TO4:IFTR$(X)=G$(39)THENX0=X
3686 NEXTX:IFX0=0THEN3675
3688 F1(X1,X2,X3)=F1(X1,X2,X3)-8192
3690 PRINT"DAS ";G$(39);" HAT DAS SCHRECKLICHE"
3695 PRINT"UNGEHEUER VERNICHTET.":FORX=1TO2000:NEXTX:RETURN
3705 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(11)THEN3725
3710 PRINT"DER BLUTRUENSTIGE VAMPIR HAT DICH GEBIS-";:PRINT"SEN..."
3715 PRINT"DA DU NUN EBENFALLS ZUM VAMPIR WIRST,"
3720 PRINT"KANNST DU NICHT WEITERSPIELEN.":GOTO55000
3725 X0=0:FORX=1TO4:IFTR$(X)=G$(11)THENX0=X
3730 NEXTX:IFX0=0THEN3710
3735 F1(X1,X2,X3)=F1(X1,X2,X3)-1024:PRINT"DU HAST DEN VAMPIR GEPFAEHLT."
3740 PRINT"ER IST ZU STAUB ZERFALLEN.":FORX=1TO2000:NEXTX:RETURN
3745 GOSUB3990:POKEV+21,0:PRINT"[147]":GOSUB33000
3750 IF(F1(X1,X2,X3)AND256)=256THEN3815
3755 IF(K$=G$(21)ANDS=1)OR(K$=G$(37)ANDS=2)OR(K$=G$(24)ANDS=0)THEN3775
3760 IF(F2(X1,X2,X3)AND2)=2THENGOSUB23100:RETURN
3761 PRINT"DIE WACHE HAT DICH GEFANGEN UND DICH"
3765 PRINT"IN DEN KERKER GEBRACHT.":X1=0:X2=1:X3=0:FORX=1TO2000:NEXTX:A(0)=-1
3770 RETURN
3775 PRINT"DIE WACHE HAT ES VORGEZOGEN, ZU VER-"
3780 PRINT"SCHWINDEN.":IFK$=G$(24)ANDS=0THENGOSUB23400
3781 IFK$=G$(37)ANDS=2THENGOSUB29100
3782 FORX=0TO3:IF(F1(X,1,3)AND128)=128THEN3784
3783 F1(X,1,3)=F1(X,1,3)+128
3784 NEXTX:F1(X1,X2,X3)=F1(X1,X2,X3)-128
3785 IFX1=0ANDX2=1ANDX3=0THEN3795
3790 FORX=1TO1500:NEXTX:RETURN
3795 PRINT"DU HAST DIE WACHE, DIE DIR UNTER UM-"
3800 PRINT"STAENDEN HAETTE HELFEN KOENNEN, VERJAGT.";
3805 PRINT"NUN MUSST DU BIS AN DEIN LEBENSENDE IM":PRINT"KERKER BLEIBEN.":GOTO55000
3815 IFK$=G$(37)ANDS=2THEN3825
3820 GOTO3760
3825 X0=0:FORX=1TO4:IFTR$(X)=G$(37)THENX0=X
3830 NEXTX:IFX0=0THEN3760
3835 PRINT"DU HAST DIE WACHEN VERJAGT."
3840 PRINT"DABEI IST ABER DER ";G$(37);" ZU"
3845 PRINT"STAUB ZERBROESELT.":GOSUB23200:F1(X1,X2,X3)=F1(X1,X2,X3)-384
3850 FORX=1TO3000:NEXT:RETURN
3860 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(23)THEN3875
3870 PRINT"DER WERWOLF HAT DICH ZERRISSEN.":GOTO55000
3875 X0=0:FORX=1TO4:IFTR$(X)=G$(23)THENX0=X
3880 NEXTX:IFX0=0THEN3870
3885 PRINT"DU HAST DEN WERWOLF VERNICHTET.":PRINT"DABEI WURDE ABER AUCH DER ";G$(23)
3886 F1(X1,X2,X3)=F1(X1,X2,X3)-2048
3890 PRINT"ZERSTOERT.":GOSUB23200:FORX=1TO3000:NEXT:RETURN
3925 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(23)THEN3940
3930 PRINT"LEIDER WAR DER GHOUL HUNGRIG, UND HAT"
3935 PRINT"DICH SOMIT VERSPEIST.":GOTO55000
3940 X0=0:FORX=1TO4:IFTR$(X)=G$(23)THENX0=X
3945 NEXTX:IFX0=0THEN3930
3950 PRINT"DU HAST DEN GHOUL GETOETET.":PRINT"LEIDER IST DABEI AUCH DER ";G$(23)
3952 PRINT"VERNICHTET WORDEN.":GOSUB23200:F1(X1,X2,X3)=F1(X1,X2,X3)-4096
3955 FORX=1TO3000:NEXT:RETURN
3960 GOSUB3990:POKEV+21,0:PRINT"[147]":IFK$=G$(17)THEN3970
3965 PRINT"DER STEINERNE HAT DICH MIT EINEM SCHLAG"
3967 PRINT"SEINER STEINERNEN FAUST ERSCHLAGEN.":GOTO55000
3970 X0=0:FORX=1TO4:IFTR$(X)=G$(17)THENX0=X
3972 NEXTX:IFX0=0THEN3965
3975 PRINT"DIE ";G$(17);" HAT DEN STEINERNEN AUF-"
3977 PRINT"GELOEST.":GOSUB23200:F2(X1,X2,X3)=F2(X1,X2,X3)-128
3980 FORX=1TO3000:NEXT:RETURN
3990 INPUT"WOMIT";K$:X0=0:FORX=1TO39:IFK$=G$(X)THENX0=X
3995 NEXTX:IFX0=0THEN2350
3999 RETURN
4000 POKEV+21,0:PRINT"[147]":IFK2$=G$(5)THEN4040
4010 IFK2$=G$(16)THEN4090
4020 IFK2$=G$(36)THEN4190
4030 FE=1:RETURN
4040 IF(F2(X1,X2,X3)AND32)=32THEN4060
4050 GOTO4030
4060 PRINT"DIE MUSIK HAT DIE SCHLANGEN BERUHIGT."
4070 PRINT"SIE WERDEN DICH NICHT BEISSEN.":A(7)=-4:FORX=1TO3000:NEXT:RETURN
4090 X0=0:FORX=1TO4:IFTR$(X)=G$(16)THENX0=X
4100 NEXTX:IFX0=0THENFE=1:RETURN
4101 IFX1=3THENFE=1:RETURN
4102 IF(F2(X1+1,X2,X3)AND16)=0THENFE=1:RETURN
4110 PRINT"DIE PEITSCHENSCHNUR HAT SICH AN EINEM"
4120 PRINT"BALKEN AN DER DECKE VERFANGEN. DU BIST"
4130 PRINT"DARAN NACH OBEN GEKLETTERT.":X1=X1+1
4140 F2(X1,X2,X3)=F2(X1,X2,X3)-16:FORX=1TO3000:NEXT:RETURN
4190 X0=0:FORX=1TO4:IFTR$(X)=G$(36)THENX0=X
4200 NEXTX:IFX0=0THENFE=1:RETURN
4210 PRINT"UM DICH HERUM WIRD ALLES DUNKEL."
4211 PRINT"EINE FREMDE MACHT REISST DICH FORT."
4212 PRINT"DU BIST ENTMATERIALISIERT."
4220 PRINT"LEIDER HAT SICH DABEI DER ";G$(36):PRINT"IN RAUCH AUFGELOEST."
4221 X1=INT(RND(1)*3+0):X2=INT(RND(2)*4+0):X3=INT(RND(3)*4+0):K=0
4230 FORX=1TO5000:NEXT:GOSUB23200:GOSUB26000:RETURN
4500 POKEV+21,0:IF(F2(X1,X2,X3)AND2)=2AND(F1(X1,X2,X3)AND128)=128THEN4520
4510 FE=1:RETURN
4520 X0=0:FORX=1TO4:IFTR$(X)=G$(8)THENX0=X
4530 NEXTX:IFX0=0THEN4590
4540 PRINT"[147]DIE WACHE HAT DAS GOLD GENOMMEN UND HAT":PRINT"DICH FREIGELASSEN."
4550 GOSUB23200:K=0:IFX2=1THENX3=1
4570 IFX2=4THENX2=3
4580 FORX=1TO3000:NEXTX:RETURN
4590 PRINT"[147]DU HAST NICHTS, WOMIT DU DIE WACHE"
4600 PRINT"BESTECHEN KOENNTEST.":FORX=1TO3000:NEXT:RETURN
5000 POKEV+21,0:PRINT"[147]":IFK2$=G$(9)ORK2$=G$(12)THEN5020
5010 FE=1:RETURN
5020 X0=0:FORX=1TO4:IFTR$(X)=G$(9)ORTR$(X)=G$(12)THENX0=X
5040 NEXT:IFX0=0THENFE=1:RETURN
5050 IFK2$=G$(9)THENE$="DIE "+G$(9):GOTO5070
5060 IFK2$=G$(12)THENE$="DEN "+G$(12)
5070 GOSUB23200:PRINT"DU HAST ";E$;" WIE EIN TIER":PRINT"VERSCHLUNGEN."
5080 PRINT"PFUI!!!":FORX=1TO3000:NEXT:RETURN
5500 POKEV+21,0:PRINT"[147]":IFK2$=G$(13)AND(B2(X1,X2,X3)AND256)=256THEN5530
5520 FE=1:RETURN
5530 X0=0:FORX=1TO4:IFTR$(X)=G$(15)THENX0=X
5540 NEXTX:IFX0=0THEN5590
5550 PRINT"DU HAST DEN KOBOLD GEFANGEN, BEVOR ER"
5560 PRINT"VERSCHWINDEN KONNTE.":PRINT"DU HAST IHN ABER WIEDER FREIGELASSEN,"
5570 PRINT"DA ER DIR GOLD GEGEBEN HAT.":B2(X1,X2,X3)=B2(X1,X2,X3)-256
5580 B1(X1,X2,X3)=B1(X1,X2,X3)+4:FORX=1TO2000:NEXTX:GOSUB5620:RETURN
5590 PRINT"DU HATTEST NICHTS, WOMIT DU DEN FLINKEN"
5600 PRINT"KOBOLD HAETTEST FANGEN KOENNEN.":PRINT"ER IST VERSCHWUNDEN."
5601 FORX=1TO4:IFTR$(X)=G$(8)THENGOSUB5700
5602 NEXT
5610 B2(X1,X2,X3)=B2(X1,X2,X3)-256:FORX=1TO2000:NEXTX:GOSUB5620:RETURN
5620 IFX1=0THENB2(1,2,1)=B2(1,2,1)+256
5630 IFX1=1THENB2(2,3,3)=B2(2,3,3)+256
5640 IFX1=2THENB2(3,3,2)=B2(3,3,2)+256
5650 IFX1=3THENB2(0,1,2)=B2(0,1,2)+256
5660 RETURN
5700 PRINT"LEIDER HAT ER DEIN GOLD MIGENOMMEN.":X0=X:GOSUB23200:RETURN
6000 POKEV+21,0:PRINT"[147]":IFK2$=G$(14)THEN6020
6010 FE=1:RETURN
6020 X0=0:FORX=1TO4:IFTR$(X)=G$(14)THENX0=X
6030 NEXTX:IFX0=0THEN6010
6040 PRINT"LEIDER HAT SICH DIE KROETE IN KEINE"
6050 PRINT"SCHOENE PRINZESSIN VERWANDELT."
6060 PRINT"DAFUER HAT SIE DICH GEBISSEN, UND DA ES"
6070 PRINT"SICH UM EINE GIFTIGE ART HANDELTE, HAST"
6080 PRINT"DU DAS ZEITLICHE GESEGNET.":GOTO55000
6500 POKEV+21,0:PRINT"[147]":IFK2$=G$(27)THEN6520
6510 FE=1:RETURN
6520 X0=0:FORX=1TO4:IFTR$(X)=G$(27)THENX0=X
6530 NEXTX:IFX0=0THEN6510
6540 PRINT"S E S A M O O P E R A":FORX=1TO3000:NEXTX
6550 PRINT"[147]DIE ";G$(27);" IST ZU STAUB ZER-"
6560 PRINT"FALLEN.":GOSUB23200:FORX=1TO3000:NEXT:RETURN
7000 POKEV+21,0:PRINT"[147]DU TRAEGST:":X0=0:FORX=1TO4:IFTR$(X)<>""THENX0=X
7010 NEXTX:IFX0=0THENPRINTTAB(13)"NICHTS":FORX=1TO2000:NEXTX:RETURN
7020 PRINT"":FORX=1TO4:PRINTTAB(13)TR$(X):NEXTX
7030 GETA$:IFA$=""THEN7030
7040 RETURN
7500 POKEV+21,0:PRINT"[147]":X0=0:FORX=1TO4:IFTR$(X)=""THENX0=X
7502 NEXTX:IFX0=0THENFE=1:RETURN
7505 B1=B1(X1,X2,X3):B2=B2(X1,X2,X3)
7507 IFK2$=G$(10)AND(B2AND1)=1THEN23300
7508 IFK2$=G$(21)AND(B2AND32)=32THENGOSUB23500:GOTO7780
7509 IFK2$=G$(8)AND(B1AND4)=4THEN29500
7510 IFK2$=G$(37)AND(B1AND1)=1THENB1=B1-1:GOTO7770
7520 IFK2$=G$(5)AND(B1AND2)=2THENB1=B1-2:GOTO7770
7530 IFK2$=G$(8)AND(B1AND4)=4THENB1=B1-4:GOTO7770
7540 IFK2$=G$(12)AND(B1AND8)=8THENB1=B1-8:GOTO7770
7550 IFK2$=G$(3)AND(B1AND16)=16THENB1=B1-16:GOTO7770
7560 IFK2$=G$(4)AND(B1AND32)=32THENB1=B1-32:GOTO7770
7570 IFK2$=G$(17)AND(B1AND64)=64THENB1=B1-64:GOTO7770
7580 IFK2$=G$(14)AND(B1AND128)=128THENB1=B1-128:GOTO7770
7590 IFK2$=G$(27)AND(B1AND256)=256THENB1=B1-256:GOTO7770
7600 IFK2$=G$(24)AND(B1AND512)=512THENB1=B1-512:GOTO7770
7610 IFK2$=G$(9)AND(B1AND1024)=1024THENB1=B1-1024:GOTO7770
7620 IFK2$=G$(15)AND(B1AND2048)=2048THENB1=B1-2048:GOTO7770
7630 IFK2$=G$(33)AND(B1AND4096)=4096THENB1=B1-4096:GOTO7770
7640 IFK2$=G$(23)AND(B1AND8192)=8192THENB1=B1-8192:GOTO7770
7650 IFK2$=G$(25)AND(B1AND16384)=16384THENB1=B1-16384:GOTO7770
7670 IFK2$=G$(39)AND(B2AND2)=2THENB2=B2-2:GOTO7780
7680 IFK2$=G$(38)AND(B2AND4)=4THENB2=B2-4:GOTO7780
7690 IFK2$=G$(18)AND(B2AND8)=8THENB2=B2-8:GOTO7780
7700 IFK2$=G$(11)AND(B2AND16)=16THENB2=B2-16:GOTO7780
7710 IFK2$=G$(21)AND(B2AND2048)=2048THENB2=B2-2048:GOTO7780
7720 IFK2$=G$(6)AND(B2AND64)=64THENB2=B2-64:GOTO7780
7730 IFK2$=G$(36)AND(B2AND128)=128THENB2=B2-128:GOTO7780
7740 IFK2$=G$(16)AND(B2AND512)=512THENB2=B2-512:GOTO7780
7750 IFK2$=G$(19)AND(B2AND1024)=1024THENB2=B2-1024:GOTO7780
7760 FE=1:RETURN
7770 B1(X1,X2,X3)=B1:TR$(X0)=K2$:RETURN
7780 B2(X1,X2,X3)=B2:TR$(X0)=K2$:RETURN
8000 POKEV+21,0:PRINT"[147]":IFK2$=G$(3)THEN8040
8010 IFK2$=G$(28)THEN8190
8030 FE=1:RETURN
8040 X0=0:FORX=1TO4:IFTR$(X)=G$(3)THENX0=X
8050 NEXTX:IFX0=0THEN8030
8055 TR$(X0)="":GOSUB23200
8060 IF(F1(X1,X2,X3)AND128)=128THEN8090
8070 PRINT"DU HAST DIE FLASCHE GEOEFFNET.":PRINT"LEIDER BEFAND SICH EIN FLASCHENGEIST"
8080 PRINT"DARIN, DER DICH GEFRESSEN HAT.":GOTO55000
8090 PRINT"DU HAST DIE FLASCHE GEOEFFNET.":IF(F1(X1,X2,X3)AND384)=384THEN8150
8100 PRINT"IN DER FLASCHE BEFAND SICH EIN FLASCHEN-";
8110 PRINT"GEIST, DER HERAUSKAM UND DIE WACHE VER-":PRINT"JAGTE."
8120 PRINT"LEIDER HAT ER IMMER NOCH HUNGER, UND DU"
8130 PRINT"BIST DAS EINZIG ESSBARE WESEN IN DER":PRINT"UMGEBUNG.":FORX=1TO5000:NEXT:A(11)=0
8140 B1(X1,X2,X3)=B1(X1,X2,X3)+32:F1(X1,X2,X3)=F1(X1,X2,X3)-128:A(0)=0:RETURN
8150 PRINT"IN DER FLASCHE BEFAND SICH EIN GEIST,":PRINT"DER DIE WACHEN VERJAGTE."
8160 PRINT"LEIDER HAT ER IMMER NOCH HUNGER, UND DU"
8170 PRINT"BIST DAS EINZIG ESSBARE WESEN IN DER":PRINT"UMGEBUNG.":FORX=1TO4000:NEXT:A(11)=0
8180 B1(X1,X2,X3)=B1(X1,X2,X3)+32:F1(X1,X2,X3)=F1(X1,X2,X3)-384:A(0)=0:RETURN
8190 IF(F1(X1,X2,X3)AND64)=64ANDTU=0THENPRINT"DIE TUER IST VERSCHLOSSEN.":GOTO8260
8191 IF(F1(X1,X2,X3)AND64)=64ANDTU=1THENPRINT"O.K.":F1(X1,X2,X3)=F1(X1,X2,X3)-63:GOTO8260
8200 IF(F2(X1,X2,X3)AND8)=8THEN22000
8210 IF(F2(X1,X2,X3)AND64)=64THEN8240
8220 IF(F2(X1,X2,X3)AND512)=512THEN8250
8225 IF(F2(X1,X2,X3)AND4096)=4096THEN8270
8230 FE=1:RETURN
8240 PRINT"DU BIST IN DEN WASSERGRABEN GESTUERZT,":PRINT"UND ERTRUNKEN.":GOTO55000
8250 PRINT"DIE TUER IST ZUGEMAUERT WORDEN."
8260 FORX=1TO3000:NEXTX:RETURN
8270 PRINT"DIESE TUER FUEHRTE INS FREIE.":PRINT"LEIDER KAM GERADE EIN RUDEL HUNGRIGER"
8271 PRINT"WOELFE VORBEI...":PRINT"DEIN ENDE WAR SCHRECKLICH.":GOTO55000
8500 POKEV+21,0:PRINT"[147]":IFK2$="SESAMOOPERA"THEN8520
8510 FE=1:RETURN
8520 IF(F2(X1,X2,X3)AND1024)=1024THEN8550
8525 IF(F1(X1,X2,X3)AND64)=0THEN8510
8530 PRINT"DER ZAUBERSPRUCH HAT DIE MAGISCHE SPERRE";
8540 PRINT"DER TUER BESEITIGT.":TU=1:GOTO8260
8550 PRINT"DURCH DEN MAGISCHEN SPRUCH HAT SICH EIN"
8560 PRINT"GEHEIMGANG GEOEFFNET.":F2(X1,X2,X3)=F2(X1,X2,X3)-1024
8570 F1(X1,X2,X3)=F1(X1,X2,X3)+1:GOTO8260
9000 POKEV+21,0:PRINT"[147]":IFK2$=G$(6)THEN9050
9020 IFK2$=G$(33)THEN9070
9025 IFK2$=G$(17)THEN9110
9030 IFK2$=G$(38)THEN9090
9040 FE=1:RETURN
9050 TR$=K2$:GOSUB9400:IFG>0THENPRINT"DU BIST GEHEILT.":G=0:GOSUB23200:GOTO8260
9070 TR$=K2$:GOSUB9400:PRINT"DU BIST DURCH DEN WEIN EINGESCHLAFEN."
9071 FORX=0TO11:IFA(X)>0THEN9430
9072 NEXT
9080 GOSUB23200:PRINT"DIE WACHE HAT DICH GEFUNDEN UND DICH":GOSUB3765:RETURN
9090 TR$=K2$:GOSUB9400:ZT=1:GOSUB23200
9100 PRINT"DU FUEHLST DICH SEHR STARK.":FORX=1TO2000:NEXT:RETURN
9110 TR$=K2$:GOSUB9400:PRINT"DIE ";G$(17);" SCHMECKTE AETZEND..."
9120 PRINT"LEIDER HAT SICH DEIN MAGEN AUFGELOEST.":GOTO55000
9400 X0=0:FORX=1TO4:IFTR$(X)=TR$THENX0=X
9410 NEXTX:IFX0=0THEN2350
9420 RETURN
9430 FORX=1TO3000:NEXT:IF(F2(X1,X2,X3)AND2)=2THEN31000
9435 IF(F2(X1,X2,X3)AND32)=32THEN9450
9440 RETURN
9450 PRINT"[147]DA DU EINGESCHLAFEN BIST, KONNTEN DICH"
9460 PRINT"DIE SCHLANGEN IN ALLER RUHE BEISSEN...":GOTO55000
9500 POKEV+21,0:PRINT"[147]":X0=0:FORX=1TO39:IFG$(X)=K2$THENX0=X
9510 NEXTX:IFX0=0THENFE=1:RETURN
9512 IFX7=8THENFE=1:RETURN
9515 IFK2$=G$(9)AND(F1(X1,X2,X3)AND2048)=2048THENGOSUB12700:RETURN
9517 IFK2$=G$(33)AND(B1(X1,X2,X3)AND32)=32THENGOSUB12800:RETURN
9520 B1=B1(X1,X2,X3):B2=B2(X1,X2,X3)
9521 IFK2$=G$(8)AND(B1AND4)=4THENB1=B1-4
9522 IFK2$=G$(24)AND(B1AND512)=512THENB1=B1-512
9523 IFK2$=G$(9)AND(F1(X1,X2,X3)AND16384)=16384THENGOSUB9800:GOSUB28100:GOTO9660
9525 IFK2$=G$(12)AND(F1(X1,X2,X3)AND16384)=16384THENGOSUB9800:GOSUB28000:GOTO9660
9526 IFK2$=G$(8)AND(F1(X1,X2,X3)AND128)=128THENGOSUB9800:GOSUB32000:RETURN
9527 IFK2$=G$(8)AND(B2AND256)=256THENGOSUB9800:GOSUB32020:RETURN
9530 IFK2$=G$(37)THENGOSUB9800:B1=B1+1:GOTO9660
9535 IFK2$=G$(5)THENGOSUB9800:B1=B1+2:GOTO9660
9540 IFK2$=G$(8)THENGOSUB9800:B1=B1+4:GOTO9660
9545 IFK2$=G$(12)THENGOSUB9800:B1=B1+8:GOTO9660
9550 IFK2$=G$(3)THENGOSUB9800:B1=B1+16:GOTO9660
9555 IFK2$=G$(4)THENGOSUB9800:B1=B1+32:GOTO9660
9560 IFK2$=G$(17)THENGOSUB9800:B1=B1+64:GOTO9660
9565 IFK2$=G$(14)THENGOSUB9800:B1=B1+128:GOTO9660
9570 IFK2$=G$(27)THENGOSUB9800:B1=B1+256:GOTO9660
9575 IFK2$=G$(24)THENGOSUB9800:B1=B1+512:GOTO9660
9580 IFK2$=G$(9)THENGOSUB9800:B1=B1+1024:GOTO9660
9585 IFK2$=G$(15)THENGOSUB9800:B1=B1+2048:GOTO9660
9590 IFK2$=G$(33)THENGOSUB9800:B1=B1+4096:GOTO9660
9595 IFK2$=G$(23)THENGOSUB9800:B1=B1+8192:GOTO9660
9600 IFK2$=G$(25)THENGOSUB9800:B1=B1+16384:GOTO9660
9610 IFK2$=G$(39)THENGOSUB9800:B2=B2+2:GOTO9670
9615 IFK2$=G$(38)THENGOSUB9800:B2=B2+4:GOTO9670
9620 IFK2$=G$(18)THENGOSUB9800:B2=B2+8:GOTO9670
9625 IFK2$=G$(11)THENGOSUB9800:B2=B2+16:GOTO9670
9630 IFK2$=G$(21)THENGOSUB9800:B2=B2+2048:GOTO9670
9635 IFK2$=G$(6)THENGOSUB9800:B2=B2+64:GOTO9670
9640 IFK2$=G$(36)THENGOSUB9800:B2=B2+128:GOTO9670
9645 IFK2$=G$(16)THENGOSUB9800:B2=B2+512:GOTO9670
9650 IFK2$=G$(19)THENGOSUB9800:B2=B2+1024:GOTO9670
9655 FE=1:RETURN
9660 B1(X1,X2,X3)=B1:RETURN
9670 B2(X1,X2,X3)=B2:RETURN
9800 X0=0:FORX=1TO4:IFTR$(X)=K2$THENX0=X
9810 NEXTX:IFX0=0THEN2350
9820 GOSUB23200:RETURN
9900 R$="MOEGLICHE RICHTUNGEN: "
9910 IF(FGAND1)=1THENR$=R$+"-N"
9920 IF(FGAND2)=2THENR$=R$+"-S"
9930 IF(FGAND4)=4THENR$=R$+"-W"
9940 IF(FGAND8)=8THENR$=R$+"-O"
9950 IF(FGAND16)=16THENR$=R$+"-H"
9960 IF(FGAND32)=32THENR$=R$+"-R"
9970 R$=R$+"-":PRINT""I$:PRINTR$:RETURN
10000 PRINT"[147]":FG=F1(X1,X2,X3):SYS704
10002 GOSUB10700
10003 IF(FGAND64)=64THENGOSUB10100
10004 IF(F2(X1,X2,X3)AND512)=512THENGOSUB10100
10005 IF(FGAND1)=1THENGOSUB10100
10006 IF(F2(X1,X2,X3)AND64)=64THENGOSUB10300
10007 IF(F2(X1,X2,X3)AND4096)=4096THENGOSUB10300
10015 IF(FGAND4)=4THENGOSUB10200
10020 IF(FGAND8)=8THENGOSUB10300
10025 IF(FGAND16)=16THENGOSUB10400
10030 IF(FGAND32)=32THENGOSUB10500
10040 RETURN
10100 FORX=49678TO49690:POKEX,100:NEXTX:POKE49678,76
10110 S=0:POKE49690,122:FORX=1TO5:POKE49650-S,103:S=S+40:NEXTX
10120 FORX=49451TO49453:POKEX,100:NEXTX
10130 S=0:FORX=1TO5:POKE49654-S,101:S=S+40:NEXTX
10140 POKE49694,76:FORX=49695TO49705:POKEX,100:NEXTX:POKE49705,122
10150 RETURN
10200 POKE49717,78:POKE49756,78:POKE49873,78:POKE49912,78
10210 S=0:FORX=1TO13:POKE49833-S,103:S=S+40:NEXTX
10220 S=0:POKE49354,77:POKE49395,77:FORX=1TO9:POKE49435+S,103:S=S+40:NEXTX
10230 POKE49755,122:POKE49754,100
10240 POKE49435,80:POKE49434,99
10250 RETURN
10300 POKE49746,77:POKE49787,77:POKE49910,77:POKE49951,77
10310 S=0:FORX=1TO13:POKE49870-S,101:S=S+40:NEXTX:POKE49389,78:POKE49428,78
10320 S=0:FORX=1TO9:POKE49468+S,101:S=S+40:NEXTX
10330 POKE49788,76:POKE49789,100:POKE49468,79:POKE49469,99
10340 R=0:RETURN
10400 FORX=49202TO49208:POKEX,100:NEXTX
10410 POKE49242,77:POKE49283,77:POKE49248,78:POKE49287,78
10420 POKE49243,77:POKE49247,78
10430 S=0:FORX=1TO7:POKE49244+S,93:POKE49244+S+40,107:S=S+80:NEXTX
10440 S=0:FORX=1TO7:POKE49246+S,93:POKE49246+S+40,115:S=S+80:NEXTX
10450 S=0:FORX=1TO7:POKE49245+S+40,67:S=S+80:NEXTX
10460 RETURN
10500 FORX=49937TO49943:POKEX,99:NEXTX
10510 POKE49897,78:POKE49858,78:POKE49903,77:POKE49862,77:POKE49898,78:POKE49902,77
10520 S=0:FORX=1TO2:POKE49899-S,66:POKE49899-S-40,107:S=S+80:NEXTX
10530 S=0:FORX=1TO2:POKE49901-S,66:POKE49901-S-40,115:S=S+80:NEXTX
10540 S=0:FORX=1TO2:POKE49900-S-40,67:S=S+80:NEXTX
10550 RETURN
10700 S=0:FORX=1TO6:POKE49152+S,77:S=S+41:NEXT
10702 S=0:FORX=1TO6:POKE49191+S,78:S=S+39:NEXTX
10704 FORX=49398TO49425:POKEX,99:NEXTX
10710 S=0:FORX=1TO8:POKE49398+S,101:S=S+40:NEXTX
10715 S=0:FORX=1TO8:POKE49425+S,103:S=S+40:NEXTX:POKE49398,79:POKE49425,80
10720 IF(FGAND1)=1THEN10730
10725 FORX=49678TO49705:POKEX,100:NEXTX:POKE49678,76:POKE49705,122
10730 IF(FGAND4)=4THEN10740
10735 S=0:FORX=1TO6:POKE49717+S,78:S=S+39:NEXTX
10740 IF(FGAND8)=8THEN10750
10745 S=0:FORX=1TO6:POKE49746+S,77:S=S+41:NEXTX
10750 RETURN
11000 POKEV+21,0:FG=F1(X1,X2,X3):F2=F2(X1,X2,X3):B1=B1(X1,X2,X3):B2=B2(X1,X2,X3)
11001 POKEV+23,0:POKEV+29,0
11005 I$="":S7=50168:X7=0:M=0
11010 IF(FGAND64)=64THENI$=I$+" "+G$(28)
11020 IF(FGAND128)=128THENI$=I$+" "+G$(31):M=20:F=0:GOSUB11500:A(0)=A(0)+1
11030 IF(FGAND256)=256THENM=20:F=0:GOSUB11500
11040 IF(FGAND512)=512THENI$=I$+" "+G$(35):M=22:F=0:GOSUB11530:GOTO29000
11050 IF(FGAND1024)=1024THENI$=I$+" "+G$(30):M=18:F=0:GOSUB11530:A(2)=A(2)+1
11060 IF(FGAND2048)=2048THENI$=I$+" "+G$(34):M=24:F=0:GOSUB11530:A(3)=A(3)+1
11070 IF(FGAND4096)=4096THENI$=I$+" "+G$(7):M=26:F=7:GOSUB11500:A(4)=A(4)+1
11080 IF(FGAND8192)=8192THENI$=I$+" "+G$(29):M=33:F=5:GOSUB11550:A(5)=A(5)+1
11090 IF(FGAND16384)=16384THENI$=I$+" "+G$(1):M=31:F=0:GOSUB11500:A(6)=A(6)+1
11100 IF(F2AND1)=1THENI$=I$+"KOBOLDHOEHLE"+" "+G$(8):M=29:F=7:GOSUB11520:RETURN
11110 IF(F2AND2)=2THENI$=I$+" "+"KERKER":K=K+1:IFK=4THEN31000
11120 IF(F2AND4)=4THENI$=I$+"SCHATZKAMMER"+" "+G$(8):M=29:F=7:GOSUB11520:RETURN
11130 IF(F2AND8)=8THENI$=I$+" "+G$(28)
11140 IF(F2AND16)=16THENX1=X1-1:GOSUB27000:GOTO11005
11150 IF(F2AND32)=32THENI$=I$+" "+G$(20):M=32:F=0:GOSUB11520:A(7)=A(7)+1
11160 IF(F2AND64)=64THENI$=I$+" "+G$(28)
11170 IF(F2AND128)=128THENI$=I$+" "+G$(26):M=41:F=0:GOSUB11530:A(8)=A(8)+1
11175 IF(F2AND256)=256THENI$=I$+" "+G$(22):M=37:F=1:GOSUB11530:A(9)=A(9)+1
11180 IF(F2AND512)=512THENI$=I$+" "+G$(28)
11190 IF(F2AND2048)=2048THENI$=I$+" "+G$(2):M=35:F=5:GOSUB11500:A(10)=A(10)+1
11200 IF(F2AND4096)=4096THENI$=I$+" "+G$(28):RETURN
11210 IF(B1AND1)=1THENI$=I$+" "+G$(37):M=36:F=11:GOSUB11580
11220 IF(B1AND2)=2THENI$=I$+" "+G$(5):M=39:F=0:GOSUB11500
11230 IF(B1AND4)=4THENI$=I$+" "+G$(8):M=29:F=7:GOSUB11500
11240 IF(B1AND8)=8THENI$=I$+" "+G$(12):M=40:F=7:GOSUB11580
11245 IF(B1AND16)=16THENI$=I$+" "+G$(3):M=30:F=1:GOSUB11580
11250 IF(B1AND32)=32THENI$=I$+" "+G$(4):M=47:F=5:GOSUB11500:A(11)=A(11)+1
11260 IF(B1AND64)=64THENI$=I$+" "+G$(17):M=46:F=0:GOSUB11500
11270 IF(B1AND128)=128THENI$=I$+" "+G$(14):M=44:F=5:GOSUB11580
11280 IF(B1AND256)=256THENI$=I$+" "+G$(27):M=58:F=11:GOSUB11580
11290 IF(B1AND512)=512THENI$=I$+" "+G$(24):M=61:F=0:GOSUB11500
11300 IF(B1AND1024)=1024THENI$=I$+" "+G$(9):M=56:F=0:GOSUB11500
11310 IF(B1AND2048)=2048THENI$=I$+" "+G$(15):M=57:F=1:GOSUB11500
11320 IF(B1AND4096)=4096THENI$=I$+" "+G$(33):M=28:F=2:GOSUB11500
11330 IF(B1AND8192)=8192THENI$=I$+" "+G$(23):M=59:F=11:GOSUB11500
11340 IF(B1AND16384)=16384THENI$=I$+" "+G$(25):M=49:F=7:GOSUB11500
11345 IF(B2AND1)=1THENI$=I$+" "+G$(10):F=2:M=48:GOSUB11580
11350 IF(B2AND2)=2THENI$=I$+" "+G$(39):M=50:F=1:GOSUB11500
11360 IF(B2AND4)=4THENI$=I$+" "+G$(38):M=60:F=0:GOSUB11500
11370 IF(B2AND8)=8THENI$=I$+" "+G$(18):M=51:F=0:GOSUB11500
11380 IF(B2AND16)=16THENI$=I$+" "+G$(11):M=54:F=0:GOSUB11580
11390 IF(B2AND32)=32THENI$=I$+" "+G$(21):M=45:F=11:GOSUB11500
11400 IF(B2AND64)=64THENI$=I$+" "+G$(6):M=52:F=0:GOSUB11500
11410 IF(B2AND128)=128THENI$=I$+" "+G$(36):M=53:F=1:GOSUB11580
11420 IF(B2AND256)=256THENI$=I$+" "+G$(13):M=21:F=0:GOSUB11580
11430 IF(B2AND512)=512THENI$=I$+" "+G$(16):M=43:F=0:GOSUB11500
11440 IF(B2AND1024)=1024THENI$=I$+" "+G$(19):M=27:F=0:GOSUB11500
11445 IF(B2AND2048)=2048THENI$=I$+" "+G$(21):M=55:F=0:GOSUB11500
11450 RETURN
11500 POKEV+29,PEEK(V+29)+2^X7:POKEV+23,PEEK(V+29)
11501 POKES7+X7,M+176:POKEV+21,PEEK(V+21)+2^X7:POKEV+39+X7,F:X7=X7+1:RETURN
11520 POKEV+29,0:POKEV+23,0:FORZZ=1TO8:GOSUB11501:NEXT:RETURN
11530 POKES7+X7,M+1+176:POKES7+X7+1,M+176:POKEV+29,3:POKEV+23,3
11531 POKEV+2,210:POKEV+3,185:POKEV,210:POKEV+1,148
11535 POKEV+21,PEEK(V+21)+2^X7+2^(X7+1):POKEV+39+X7,F:POKEV+39+X7+1,F
11540 POKEV+X7+2,PEEK(V+X7):POKEV+X7+3,PEEK(V+X7+1)-42:X7=X7+2:J1=1:RETURN
11550 POKES7,M+176:POKES7+1,M+1+176:POKES7+2,238:POKES7+3,239:POKEV+23,255:POKEV+29,255
11560 POKEV+21,15:FORX=0TO3:POKEV+39+X,5:NEXT:POKEV+6,250:POKEV+7,167
11570 POKEV+4,202:POKEV+5,167:POKEV+2,154:POKEV+3,167:POKEV,154:POKEV+1,125:RETURN
11580 GOSUB11501:RETURN
12000 X0=0:FORX=0TO11:IFA(X)>0THENX0=X+1
12010 NEXTX:IFX0=0THENRETURN
12015 POKEV+21,0:PRINT"[147]"
12020 ONX0GOSUB12900,3910,3710,3870,3930,3675,12500,3611,3965,3635,12600,3556
12025 FORX=0TO11:A(X)=0:NEXT:RETURN
12500 PRINT"DER BAER HAT DICH GEFRESSEN.":GOTO55000
12600 X0=0:FORX=1TO4:IFTR$(X)=G$(19)THENX0=X
12610 NEXT:IFX0=0THEN3550
12620 GOSUB3547:RETURN
12700 X0=0:FORX=1TO4:IFTR$(X)=K2$THENX0=X
12710 NEXT:IFX0=0THENRETURN
12720 PRINT"DER ";G$(34);" HAT DIE ";G$(9);" GE-"
12730 PRINT"FRESSEN. EINSTWEILEN IST ER SATT.":PRINT"ER WIRD DICH NICHT BEHELLIGEN."
12740 TR$(X0)="":FORX=1TO4:IFTR$(X)=""THENTR$(X)=TR$(X+1)
12750 NEXT:A(3)=-4:FORX=1TO3000:NEXT:RETURN
12800 X0=0:FORX=1TO4:IFTR$(X)=K2$THENX0=X
12810 NEXT:IFX0=0THENRETURN
12820 PRINT"DER FLASCHENGEIST HAT DEN WEIN GEROCHEN,"
12830 PRINT"UND IST IN DER FLASCHE VERSCHWUNDEN."
12840 PRINT"ER IST ZUM WEINGEIST GEWORDEN.":GOSUB23200
12850 PRINT"NUN IST ER IN ASBACH URALT ANZUFINDEN!"
12860 B1(X1,X2,X3)=B1(X1,X2,X3)-32:A(11)=-1:FORX=1TO4000:NEXT:RETURN
12900 IF(X1=0ANDX2=1ANDX3=1)OR(X1=0ANDX2=3ANDX3=3)THENA(0)=0:RETURN
12910 GOSUB3760:RETURN
13000 POKEV+21,0:PRINT"[147]":IFK2$=G$(18)THEN13025
13010 IFK2$=G$(25)THEN 13050
13015 IFK2$=G$(28)THEN13100
13020 FE=1:RETURN
13025 X0=0:FORX=1TO4:IFTR$(X)=G$(18)THENX0=X
13026 NEXTX:IFX0=0THENFE=1:RETURN
13027 GOSUB23200
13030 PRINT"DU HAST DEN ";G$(18);" ZERSCHLAGEN.":B2(X1,X2,X3)=B2(X1,X2,X3)+16
13040 FORX=1TO3000:NEXTX:RETURN
13050 X0=0:FORX=1TO4:IFTR$(X)=G$(25)THENX0=X
13060 NEXTX:IFX0=0THENFE=1:RETURN
13070 PRINT"DU HAST DEN ";G$(25);" ZERSCHLAGEN."
13080 GOSUB23200:FORX=1TO3000:NEXT:RETURN
13100 IFZT=0THENPRINT"DAZU FEHLT DIR LEIDER DIE NOETIGE KRAFT.";:GOTO13080
13110 PRINT"DANK DEINER STAERKE KONNTEST DU DIE":PRINT"MAUER ZERSCHLAGEN."
13120 F2(X1,X2,X3)=F2(X1,X2,X3)-512:F1(X1,X2,X3)=F1(X1,X2,X3)+1:GOTO13080
15000 POKEV+21,0:PRINT"[147]DER MAGISCHE BLITZ DES ZAUBERES IST VON"
15010 PRINT"DEINEM ";G$(25);" ABGEPRALLT, UND HAT DEN"
15020 PRINT"ZAUBERER SELBER GETROFFEN.":PRINT"EIN FUERCHTERLICHER SCHREI, EINE GRELLE"
15030 PRINT"LICHEXPLOSION...":PRINT"DER ZAUBERER IST VERNICHTET!!!"
15040 F1(X1,X2,X3)=F1(X1,X2,X3)-512
15050 FORX=1TO8000:NEXT:GOTO2250
20000 POKEV+21,0:POKE887,9:SYS828:PRINT"[147][144]DURCH DAS ZERSCHLAGEN DER FLASCHE HAST"
20010 PRINT"DU EINE MAGISCHE KETTENREAKTION AUSGE-"
20020 PRINT"LOEST."
20030 PRINT"EIN WIRBELWIND ERGREIFT DICH UND TRAEGT"
20040 PRINT"DICH FORT."
20050 PRINT"MOEGE DIE MACHT MIT DIR SEIN...":GOTO2100
21000 POKEV,255:POKEV+1,165:POKEV+2,205:POKEV+3,165:POKEV+4,155:POKEV+5,165
21010 POKEV+6,105:POKEV+7,165:POKEV+8,55:POKEV+9,165:POKEV+10,230:POKEV+11,170
21020 POKEV+12,180:POKEV+13,170:POKEV+14,130:POKEV+15,170:RETURN
22000 POKEV+21,0:PRINT"[147][144]":GOSUB25000:FORX=1TO40:PRINT" ";:NEXT:PRINT"[146]DU BIST IM FREIEN."
22005 FORX=0TO4000:NEXT
22010 PRINT"DICHTE NEBEL UMWALLEN DAS SCHLOSS,"
22020 FORX=1TO1000:POKE49152+INT(RND(1)*799+0),102:NEXT
22030 PRINT"DIE DAS ALTE GEMAEUER ZERFRESSEN UND IN":PRINT"RAUCH AUFLOESEN."
22040 FORX=1TO1000:POKE49152+INT(RND(1)*799+0),32:NEXT:FORX=1TO1000:NEXT:PRINT"[147]"
22050 PRINT"[146]DAS ADVENTURE IST GELOEST."
22055 PRINT"DU HAST DEIN VOLK GERETTET UND HAST"
22056 PRINT"DICH ALS WAHRER KOENIG ERWIESEN."
22060 PRINT"ES WURDEN"ZA"SCHRITTE BENOETIGT.":END
23000 POKEV+21,0:PRINT"[147]DAS SCHLANGENGIFT HAT DICH GETOETET.":GOTO55000
23100 IFK1$<>"BEKAEMPFE"THENRETURN
23105 PRINT"VORSICHT!":PRINT"DIE WACHE IST SEHR SCHLECHT GELAUNT."
23110 PRINT"WENN DU SIE WEITER SO AERGERST, WAERE ES";
23120 PRINT"MOEGLICH, DASS DU IN DER FOLTERKAMMER":PRINT"LANDEST."
23130 FORX=1TO4000:NEXT:RETURN
23200 TR$(X0)="":FORX=1TO3:FORY=X+1TO4:IFTR$(X)>TR$(Y)THEN23220
23210 V$=TR$(X):TR$(X)=TR$(Y):TR$(Y)=V$
23220 NEXTY:NEXTX:GOSUB23600:RETURN
23300 PRINT"DIE MAGISCHEN KRAEFTE DES FLAMMENDEN"
23310 PRINTG$(10);:PRINT"S HABEN DICH VERNICHTET.":GOTO55000
23400 PRINT"LEIDER ZERBRACH DABEI AUCH DER ";G$(24);".":GOSUB23200:RETURN
23500 IFZT>0THEN23540
23510 PRINT"DAS ";G$(21);" STECKT ZU TIEF.":K2$=""
23520 PRINT"DU BIST ZU SCHWACH, UM ES RAUSZUZIEHEN.":FORX=1TO3000:NEXT:RETURN
23540 B2=B2-32:PRINT"DANK DEINER STAERKE KONNTEST DU DAS"
23550 PRINTG$(21);:PRINT" HERAUSZIEHEN.":FORX=1TO2500:NEXT:RETURN
23600 FORX=1TO3:FORY=X+1TO4:IFTR$(X)=TR$(Y)THENTR$(Y)=""
23610 NEXT:NEXT:RETURN
24000 POKEV+21,0:PRINT"[147]DIE WIRKUNG DES ZAUBERTRANKS HAT NACHGE-":PRINT"LASSEN."
24010 PRINT"DU BIST WIEDER SCHWACH.":FORX=1TO3000:NEXT:RETURN
25000 PRINT""," [169][223]",,"[157][169][223]":PRINT,"[169]  [223]"SPC(14)"[169]  [223]"
25010 PRINT,"[161]  [182]"SPC(14)"[161]  [182]"
25020 PRINT,"[161] [161][182]"SPC(14)"[161] [161][182]"
25030 PRINT,"[161] [161][182]"SPC(14)"[161] [161][182]"
25035 PRINT,"[161]  [182][146][172][187][172][187][172][187][172][187][172][187][172][187][172][187][161]  [182]"
25040 PRINT,"[161]                    [182]"
25045 PRINT,"[161]                    [182]"
25050 PRINT,"[161]                    [182]"
25055 PRINT,"[161]                    [182]"
25060 PRINT,"[161]         [182][161]        [182]"
25065 PRINT,"[161]         [182][161]        [182]"
25070 PRINT,"[161]         [182][161]        [182]":FORX=1TO40:PRINT" ";:NEXTX:RETURN
26000 FORX=0TO11:IFA(X)>0THENA(X)=0
26010 NEXT:RETURN
27000 POKEV+21,0:PRINT"[147]DU BIST AUF EINE FALLTUER GETRETEN."
27010 PRINT"ZUM GLUECK HAST DU DEN STURZ GUT UEBER-":PRINT"STANDEN."
27020 FG=F1(X1,X2,X3):F2=F2(X1,X2,X3):FORX=1TO3000:NEXT:RETURN
28000 PRINT"DER BAER HAT SICH UEBER DEN HONIG HER-":PRINT"GEMACHT.":GOSUB23200
28010 PRINT"ER IST ZU SEHR MIT DEM HONIG BESCHAEF-"
28020 PRINT"TIGT, ALS DASS DU FUER IHN INTERESSANT":PRINT"WAERST.":A(6)=-5
28030 FORX=1TO3500:NEXT:RETURN
28100 PRINT"DER BAER HAT DIE ";G$(9)
28110 PRINT"GEFRESSEN.":PRINT"EINSTWEILEN IST ER SATT.":A(6)=-3:GOTO28030
29000 GOSUB10000:GOSUB9900
29001 FORX=1TO5000:NEXT:X0=0:FORX=1TO4:IFTR$(X)=G$(25)THENX0=X
29010 NEXT:IFX0=0THEN29030
29020 GOTO15000
29030 POKEV+21,0:PRINT"[147]DER ZAUBERER HAT DICH MIT EINEM"
29040 PRINT"MAGISCHEN BLITZ GETOETET.":GOTO55000
29100 PRINT"DABEI IST ABER DER ";G$(37);" ZU"
29110 PRINT"STAUB ZERBROESELT.":GOSUB23200:RETURN
29500 IF(F2(X1,X2,X3)AND1)=1OR(F2(X1,X2,X3)AND4)=4THEN29520
29510 GOTO7510
29520 GOTO7770
30000 PRINT"";:PRINT"^_#":PRINT"$%&"
30010 PRINT"'()":J1=0:PRINT"";
30020 PRINT"^_#":PRINT"$%&":PRINT"'()":RETURN
31000 POKEV+21,0:POKE50168,240:POKE50169,241:POKE50170,242:POKEV+21,7:POKEV+29,7:POKEV+23,7
31010 POKEV+2,150:POKEV+3,165:POKEV,150:POKEV+1,123:POKEV+4,198:POKEV+5,165
31020 POKEV+39,0:POKEV+40,0:POKEV+41,0
31030 PRINT"[147]DIE WACHE HAT DICH DEM HENKER UEBERGE-":PRINT"BEN.":GOTO55000
32000 POKEV+21,0:PRINT"[147]DIE WACHE HAT SICH DAS GOLD UNTER DEN"
32010 PRINT"NAGEL GERISSEN.":GOSUB26000:FORX=1TO3000:NEXT:RETURN
32020 POKEV+21,0:PRINT"[147]DER KOBOLD HAT DAS GOLD AN SICH GENOM-"
32030 PRINT"MEN.":GOSUB26000:FORX=1TO3000:NEXT:RETURN
33000 X0=0:FORX=1TO4:IFTR$(X)=G$(21)ANDK$=G$(21)THENX0=X:S=1
33010 NEXT:IFX0<>0THENRETURN
33020 X0=0:FORX=1TO4:IFTR$(X)=G$(24)ANDK$=G$(24)THENX0=X:S=0
33030 NEXT:IFX0<>0THENRETURN
33040 X0=0:FORX=1TO4:IFTR$(X)=G$(37)ANDK$=G$(37)THENX0=X:S=2
33050 NEXT:IFX0<>0THENRETURN
33060 GOTO2350
55000 PRINT"SO SCHNELL KANN EIN ABENTEUER ENDEN.":END